﻿Module Module1

    Sub Main()
        Dim sw As New System.Diagnostics.Stopwatch

        sw.Start()
        
        For index = 1 To 5
            Dim proxy As New SchoolServiceProxy.SchoolServiceClient
            Dim req = New SchoolServiceProxy.SearchAlumnosRequest
            req.Operation = SchoolServiceProxy.DCSearchOperation.GetAll
            For jj = 1 To 10
                Dim res = proxy.SearchAlumnos(req)
            Next
        Next
        sw.Stop()

        Console.WriteLine(sw.ElapsedMilliseconds.ToString())
        Console.ReadLine()
    End Sub

End Module
